package Infinite::Sequence::Odd;
use base qw{Infinite::Sequence};
use Infinite::Sequence::Natural;
use Infinite::Sequence::Even;
use Infinite::Sequence::Set;

sub new {
	my $natural_set = Infinite::Sequence::Set->new( new Infinite::Sequence::Natural );
	my $even_set = Infinite::Sequence::Set->new( new Infinite::Sequence::Even );
	( $natural_set - $even_set )->sequence
}

1